home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tp6sb110.zip / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-14  |  568b  |  21 lines

  1. {$M 16384,0,0}
  2.  
  3. program Demo; { to demonstrate the SBVoice Unit }
  4.               { Copyright 1991 Amit K. Mathur, Windsor, Ontario }
  5.  
  6. uses SBVoice;
  7.  
  8. begin
  9. if SBFound then begin
  10.   if paramcount>0 then begin
  11.     LoadVoice(paramstr(1),0,0);
  12.     sb_Output(seg(soundfile),ofs(soundfile)+26);
  13.     repeat
  14.       write('Demo of the SBVoice Unit, Copyright 1991 by Amit K. Mathur --- ');
  15.     until StatusWord=0;
  16.   end else
  17.     writeln('Usage: DEMO [d:\path\]filename.voc');
  18. end else
  19.   writeln('SoundBlaster Init Error.  SoundBlaster v1.00 not Found.');
  20. end.
  21.